home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / amos / eaissu3b.lha / Source_Code / UN_Crazy_Warp_Colours.AMOS / UN_Crazy_Warp_Colours.amosSourceCode
AMOS Source Code  |  1995-12-30  |  777b  |  53 lines
  1. Rem
  2. Rem Take us out of here Mr Scott, warp factor 9! 
  3. Rem
  4. Rem BOUCH '91
  5. Rem
  6. Screen Open 0,320,270,32,Lowres
  7. Screen Display 0,128,40,320,270
  8. Double Buffer 
  9. Autoback 1
  10. Curs Off 
  11. Flash Off 
  12. Hide 
  13. Cls 0
  14. Randomize Timer
  15. SIZE=0
  16. Colour 31,0
  17. For CL=0 To 30
  18.    Colour CL,0
  19.    Ink CL
  20.    Bar 2+SIZE,2+SIZE To 319-SIZE,250-SIZE
  21.    Add SIZE,4
  22. Next 
  23. R=0
  24. G=0
  25. B=0
  26. L=0
  27. RR=0
  28. RG=0
  29. RB=0
  30. Do 
  31.    If L=0
  32.       RR=0
  33.       RG=0
  34.       RB=0
  35.       C=Rnd(2)
  36.       If C=0 : RR=-Sgn(R-14) : End If 
  37.       If C=1 : RG=-Sgn(G-14) : End If 
  38.       If C=2 : RB=-Sgn(B-14) : End If 
  39.       L=15
  40.    End If 
  41.    For A=0 To 30
  42.       Colour A,Colour(A+1)
  43.    Next 
  44.    Add R,RR
  45.    Add G,RG
  46.    Add B,RB
  47.    Dec L
  48.    Colour 30,R*256+G*16+B
  49.    Exit If Inkey$<>""
  50.    Wait Vbl 
  51. Loop 
  52. Rem
  53. Rem If I give her any more she'll blow!!